home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / echohlp1.zip / LCBATCH1.ZIP / LZRCST2.BAT < prev    next >
DOS Batch File  |  1992-11-16  |  3KB  |  107 lines
  1. @echo off
  2. rem  -----------------------------------------------------------------------
  3. rem  LZRCST (LC) Mail Run Batch File - Alan Apollo/The Laser~Coast~Line BBS 
  4. rem  -----------------------------------------------------------------------
  5. rem  08/05/92 [LZRCST2.BAT] - Use To Call The Laser~Coast~Line For E-Mail
  6.  
  7. rem  WARNING: See LCBATCH.TXT Before Using!!
  8.  
  9. echo ------------------------------------------------------------------------------->>c:\wc30\logs\mailrun.log
  10.  
  11. ren c:\wc30\logs\mailrun.log mailrun.tmp
  12. dater c:\wc30\logs\stamp.tmp /brief
  13. copy c:\wc30\logs\mailrun.tmp+c:\wc30\logs\stamp.tmp c:\wc30\logs\mailrun.log
  14. echo       *LZRCST Mail Run Initiated>>c:\wc30\logs\mailrun.log 
  15.  
  16. if exist c:\wc30\data\lclclr.flg goto :start
  17. echo       *LZRCST Mail Run Aborted - Run Successfully Earlier Today!>>c:\wc30\logs\mailrun.log
  18. goto :mr_end
  19.  
  20. :start
  21. if exist c:\xfers\sy\nets\lzrcst.rep goto :restart
  22. if exist c:\wc30\data\retry.flg goto :restart
  23.  
  24. rem  DUPMSG CHECKS FOR DUPLICATES BEFORE EXPORT BEGINS!
  25. rem  -------------------------------------------------
  26. dupmsg
  27. tnet export lzrcst
  28. echo       *TNET - Export LZRCST.REP>>c:\wc30\logs\mailrun.log
  29.  
  30. :restart
  31. c:
  32. cd \xfers\sy\nets
  33. if exist lzrcst.rep copy lzrcst.rep lzrcst.rbu
  34. d:
  35. cd \robo
  36. robocomm /alzrcst /r /o
  37. echo       *ROBOCOMM - Active To Call The~Laser~Coast~Line BBS!>>c:\wc30\logs\mailrun.log
  38. echo ------------------------------------------------------------------------------->>c:\wc30\logs\robo.log
  39.  
  40. c:
  41. cd \wc30
  42. if not exist c:\xfers\sy\nets\lzrcst.qwk goto :mr_fail
  43. tnet import lzrcst
  44. echo       *TNET - Import LZRCST.QWK>>c:\wc30\logs\mailrun.log
  45.  
  46. rem  NETBULL CREATES TOMCAT/HELLO/BULLETIN FILES FOR NET MAIL
  47. rem  --------------------------------------------------------
  48. :mr_norep
  49. rem netbull
  50.  
  51. :mr_rep
  52. if not exist c:\xfers\sy\nets\lzrcst.re1 goto :mr_qwk
  53. del c:\xfers\sy\nets\lzrcst.rxx
  54. ren c:\xfers\sy\nets\lzrcst.re1 lzrcst.rxx
  55.  
  56. :mr_qwk
  57. if exist c:\xfers\sy\nets\lzrcst.qxx del c:\xfers\sy\nets\lzrcst.qxx
  58. if exist c:\xfers\sy\nets\lzrcst.qwk ren c:\xfers\sy\nets\lzrcst.qwk lzrcst.qxx
  59.  
  60. :mr_clr
  61. ren c:\wc30\data\lclclr.flg lclrec.flg
  62. ren c:\wc30\data\lclfail.flg lclpass.flg
  63. cls
  64.  
  65. rem  DUPMSG CHECKS INCOMING QWK PACKET FOR DUPLICATES
  66. rem  ------------------------------------------------
  67. dupmsg
  68.  
  69. rem  SET PRE-SCANS FOR YOUR USERS IF YOU WISH
  70. rem  ----------------------------------------
  71. :mr_precans
  72. rem tomcat alan apollo /prescan
  73. rem tomcat wpe bbs /prescan
  74. rem tomcat riot bbs /prescan
  75.  
  76. rem  REPLACES MISSING ANSI CONTROL CHARACTERS FOR DISPLAY ONLINE
  77. rem  -----------------------------------------------------------
  78. :addansi
  79. rem cd \wc30\msgs\wmsg
  80. rem ansimsg msg020.dat msg020.bup
  81. rem ansimsg msg049.dat msg049.bup
  82. rem ansimsg msg052.dat msg052.bup
  83.  
  84. rem  CALLS NORTON TO DE-FRAG DISK FREE SPACE (See HDUPDT.BAT)
  85. rem  --------------------------------------------------------
  86. :mr_maint
  87. rem call hdupdt
  88. goto :mr_log
  89.  
  90. :mr_fail
  91. if exist c:\wc30\data\lclfail.flg goto :mr_log
  92. ren c:\wc30\data\lclpass.flg lclfail.flg
  93.  
  94. :mr_log
  95. if exist c:\wc30\data\lclpass.flg goto :mr_pass
  96. echo *******LZRCST MAIL RUN FAILED*******>>c:\wc30\logs\mailrun.log
  97. goto :mr_end
  98.  
  99. :mr_pass
  100. echo       *LZRCST Mail Packet Processed>>c:\wc30\logs\mailrun.log
  101.  
  102. :mr_end
  103. del c:\wc30\logs\mailrun.tmp
  104. del c:\wc30\logs\stamp.tmp
  105. c:
  106. cd \wc30
  107.